00100	<****  FM INSTRUMENTS  ****
00110	SRATE←25000;SPEED←2;MAG←512/SRATE;
00200	ARRAY F8,F9,F10(512);  
00300	SEG(F1);0 0 1 12  1 88 0 100; < ENVELOPE
00400	SYNTH(F10);  1 1 999;  < SINE WAVE
00500	SEG(F8);0 0 1 100; < SLOPE UP
00550	SEG(F9); 1 0 0 100;
00600	
00700	COMPILE;  
00800	INSTRUMENT FM1;                       
00900	 OSCIL[10](P4,10*MAG/P2,P5);  
00950	INTRP(P9,P10,P11);
01000	INTRP(P6*U2*MAG,P7*U2*MAG,P8);
01100	 OSCIL(U3,MAG*U2,F10);  
01200	NOSCIL(U1,MAG*P3+U4,F10);
01300	 OUTA←OUTA+U5;  END;
01350	<ABOVE INST HAS CHANGING MOD. FREQ. (P9→P10)
01400	 INSTRUMENT FM2;
01500	OSCIL[10](P4,10*MAG/P2,P5);  
01600	INTRP(P6*P9*MAG,P7*P9*MAG,P8);
01700	 OSCIL(U2,MAG*P9,F10);  
01800	NOSCIL(U1,MAG*P3+U3,F10);
01900	 OUTA←OUTA+U4;  END;                                                        
02000	 INSTRUMENT FM3;
02100	OSCIL[10](P4,10*MAG/P2,P5);  
02200	INTRP(P6*P10*MAG,P7*P10*MAG,P8);
02300	 OSCIL(U2,MAG*P9,F10);  
02400	NOSCIL(U1,MAG*P3+U3,F10);
02500	 OUTA←OUTA+U4;  END;  
02600	FINISH;
02700	 PLAY;
02800	 FM1 0 .5 C 1000 F1   1 1 F8 P3 P3*2 F8;
02900	 FINISH;